home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Info-Mac 4
/
Info_Mac IV CD-ROM (Pacific HiTech Inc.)(August 1994).iso
/
Sound
/
Utilities
/
DX7 Librarian 1.0.8
/
Sample Scripts
/
16 Change Patch Parameter - 3
< prev
next >
Wrap
Text File
|
1994-01-22
|
597b
|
15 lines
tell application "DX7 Librarian"
activate -- if needed
repeat with i from 0 to 7
set Parameter i of Window "Sample" to (i + 1) -- only for check
end repeat
repeat with i from 0 to 7
set x to Parameter i of Window "Sample" -- get data of op.6
set Parameter (21 + i) of Window "Sample" to x -- copy to op.5
set Parameter (42 + i) of Window "Sample" to x -- copy to op.4
set Parameter (63 + i) of Window "Sample" to x -- copy to op.3
set Parameter (84 + i) of Window "Sample" to x -- copy to op.2
set Parameter (105 + i) of Window "Sample" to x -- copy to op.1
end repeat
end tell